apply_displacement_constraint Interface

public interface apply_displacement_constraint

Contents

Module Procedures

apply_displacement_constraint_dense apply_displacement_constraint_csr

Module Procedures

private subroutine apply_displacement_constraint_dense(dof, val, k, f)

Applies a displacement constraint to the specified degree of freedom.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	dof	The global degree-of-freedom to which the constraint should be applied.
real(kind=real64),	intent(in)			::	val	The value of the displacement constraint.
real(kind=real64),	intent(inout),		dimension(:,:)	::	k	The stiffness matrix to which the constraint should be applied.
real(kind=real64),	intent(inout),		dimension(:)	::	f	The external force vector to which the constraint should be applied.

private subroutine apply_displacement_constraint_csr(dof, val, k, f)

Applies a displacement constraint to a CSR-format sparse matrix.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	dof	The global degree-of-freedom to which the constraint should be applied.
real(kind=real64),	intent(in)			::	val	The value of the displacement constraint.
type(csr_matrix),	intent(inout)			::	k	The stiffness matrix to which the constraint should be applied.
real(kind=real64),	intent(inout),		dimension(:)	::	f	The external force vector to which the constraint should be applied.